/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / tools / qlib / vidasm.c

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 54 68 65 73 65 | 20 72 6f 75 74 69 6e 65 |/* These| routine|
|00000010| 73 20 61 72 65 20 66 6f | 72 20 54 75 72 62 6f 2d |s are fo|r Turbo-|
|00000020| 43 20 61 6e 64 20 70 72 | 6f 76 69 64 65 20 73 6f |C and pr|ovide so|
|00000030| 6d 65 20 62 61 73 69 63 | 20 62 75 74 0d 0a 20 20 |me basic| but..  |
|00000040| 20 76 61 6c 75 61 62 6c | 65 20 73 63 72 65 65 6e | valuabl|e screen|
|00000050| 20 61 63 63 65 73 73 20 | 74 6f 20 74 68 65 20 49 | access |to the I|
|00000060| 42 4d 20 50 43 2f 41 54 | 20 61 6e 64 20 43 6f 6d |BM PC/AT| and Com|
|00000070| 70 61 74 69 62 6c 65 73 | 2e 0d 0a 20 20 20 55 6e |patibles|...   Un|
|00000080| 66 6f 72 74 75 6e 61 74 | 65 6c 79 20 74 68 65 73 |fortunat|ely thes|
|00000090| 65 20 63 61 6e 6e 6f 74 | 20 62 65 20 75 73 65 64 |e cannot| be used|
|000000a0| 20 77 68 65 6e 20 69 6e | 20 74 68 65 20 54 75 72 | when in| the Tur|
|000000b0| 62 6f 2d 43 0d 0a 20 20 | 20 64 65 76 65 6c 6f 70 |bo-C..  | develop|
|000000c0| 6d 65 6e 74 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |ment env|ironment|
|000000d0| 2e 0d 0a 0d 0a 20 20 20 | 62 79 20 4d 69 6b 65 20 |.....   |by Mike |
|000000e0| 45 6c 6b 69 6e 73 20 2d | 20 4d 69 6b 65 27 73 20 |Elkins -| Mike's |
|000000f0| 43 20 42 6f 61 72 64 20 | 28 36 31 39 29 2d 37 32 |C Board |(619)-72|
|00000100| 32 2d 38 37 32 34 20 31 | 32 30 30 2f 32 34 30 30 |2-8724 1|200/2400|
|00000110| 0d 0a 20 20 20 20 20 2a | 2f 0d 0a 0d 0a 63 6c 73 |..     *|/....cls|
|00000120| 28 29 20 20 20 20 20 20 | 20 20 20 2f 2a 20 43 6c |()      |   /* Cl|
|00000130| 65 61 72 20 74 68 65 20 | 73 63 72 65 65 6e 20 20 |ear the |screen  |
|00000140| 2a 2f 0d 0a 7b 0d 0a 0d | 0a 20 20 20 20 61 73 6d |*/..{...|.    asm|
|00000150| 20 20 6d 6f 76 20 20 20 | 61 78 2c 30 36 30 30 68 |  mov   |ax,0600h|
|00000160| 0d 0a 20 20 20 20 61 73 | 6d 20 20 6d 6f 76 20 20 |..    as|m  mov  |
|00000170| 20 62 68 2c 37 0d 0a 20 | 20 20 20 61 73 6d 20 20 | bh,7.. |   asm  |
|00000180| 6d 6f 76 20 20 20 63 78 | 2c 30 0d 0a 20 20 20 20 |mov   cx|,0..    |
|00000190| 61 73 6d 20 20 6d 6f 76 | 20 20 20 64 78 2c 31 38 |asm  mov|   dx,18|
|000001a0| 34 66 68 0d 0a 20 20 20 | 20 61 73 6d 20 20 69 6e |4fh..   | asm  in|
|000001b0| 74 20 20 20 31 30 68 0d | 0a 0d 0a 7d 0d 0a 0d 0a |t   10h.|...}....|
|000001c0| 64 65 6c 5f 63 75 72 28 | 29 20 20 2f 2a 20 4d 61 |del_cur(|)  /* Ma|
|000001d0| 6b 65 20 63 75 72 73 6f | 72 20 64 69 73 61 70 70 |ke curso|r disapp|
|000001e0| 65 61 72 20 2a 2f 0d 0a | 7b 0d 0a 0d 0a 20 20 20 |ear */..|{....   |
|000001f0| 20 61 73 6d 20 20 6d 6f | 76 20 20 20 61 68 2c 30 | asm  mo|v   ah,0|
|00000200| 31 0d 0a 20 20 20 20 61 | 73 6d 20 20 6d 6f 76 20 |1..    a|sm  mov |
|00000210| 20 20 63 68 2c 32 36 68 | 0d 0a 20 20 20 20 61 73 |  ch,26h|..    as|
|00000220| 6d 20 20 6d 6f 76 20 20 | 20 63 6c 2c 37 0d 0a 20 |m  mov  | cl,7.. |
|00000230| 20 20 20 61 73 6d 20 20 | 69 6e 74 20 20 20 31 30 |   asm  |int   10|
|00000240| 68 0d 0a 7d 0d 0a 0d 0a | 72 65 73 74 6f 72 5f 63 |h..}....|restor_c|
|00000250| 75 72 28 29 20 20 2f 2a | 20 50 75 74 20 63 75 72 |ur()  /*| Put cur|
|00000260| 73 6f 72 20 62 61 63 6b | 20 6f 6e 20 73 63 72 65 |sor back| on scre|
|00000270| 65 6e 20 2a 2f 0d 0a 7b | 0d 0a 20 20 20 20 75 6e |en */..{|..    un|
|00000280| 73 69 67 6e 65 64 09 73 | 74 2c 20 65 6e 3b 0d 0a |signed.s|t, en;..|
|00000290| 0d 0a 20 20 20 20 69 66 | 20 28 67 65 74 5f 6d 6f |..    if| (get_mo|
|000002a0| 64 65 28 29 20 3d 3d 20 | 37 29 0d 0a 20 20 20 20 |de() == |7)..    |
|000002b0| 20 20 20 20 73 74 20 3d | 20 31 32 2c 20 65 6e 20 |    st =| 12, en |
|000002c0| 3d 20 31 33 3b 0d 0a 20 | 20 20 20 65 6c 73 65 0d |= 13;.. |   else.|
|000002d0| 0a 20 20 20 20 20 20 20 | 20 73 74 20 3d 20 36 2c |.       | st = 6,|
|000002e0| 20 65 6e 20 3d 20 37 3b | 0d 0a 0d 0a 20 20 20 20 | en = 7;|....    |
|000002f0| 61 73 6d 20 20 6d 6f 76 | 20 20 20 61 68 2c 30 31 |asm  mov|   ah,01|
|00000300| 0d 0a 20 20 20 20 61 73 | 6d 20 20 6d 6f 76 20 20 |..    as|m  mov  |
|00000310| 20 62 68 2c 30 0d 0a 20 | 20 20 20 61 73 6d 20 20 | bh,0.. |   asm  |
|00000320| 6d 6f 76 20 20 20 63 68 | 2c 73 74 0d 0a 20 20 20 |mov   ch|,st..   |
|00000330| 20 61 73 6d 20 20 6d 6f | 76 20 20 20 63 6c 2c 65 | asm  mo|v   cl,e|
|00000340| 6e 0d 0a 20 20 20 20 61 | 73 6d 20 20 69 6e 74 20 |n..    a|sm  int |
|00000350| 20 20 31 30 68 0d 0a 7d | 0d 0a 0d 0a 67 65 74 5f |  10h..}|....get_|
|00000360| 6d 6f 64 65 28 29 20 20 | 20 2f 2a 20 43 68 65 63 |mode()  | /* Chec|
|00000370| 6b 20 66 6f 72 20 4d 6f | 6e 6f 63 72 6f 6d 65 20 |k for Mo|nocrome |
|00000380| 6f 72 20 67 72 61 70 68 | 69 63 73 20 20 2a 2f 0d |or graph|ics  */.|
|00000390| 0a 7b 0d 0a 0d 0a 20 20 | 20 20 61 73 6d 20 20 6d |.{....  |  asm  m|
|000003a0| 6f 76 20 20 20 61 68 2c | 31 35 0d 0a 20 20 20 20 |ov   ah,|15..    |
|000003b0| 61 73 6d 20 20 6d 6f 76 | 20 20 20 62 68 2c 30 0d |asm  mov|   bh,0.|
|000003c0| 0a 20 20 20 20 61 73 6d | 20 20 6d 6f 76 20 20 20 |.    asm|  mov   |
|000003d0| 63 68 2c 30 0d 0a 20 20 | 20 20 61 73 6d 20 20 6d |ch,0..  |  asm  m|
|000003e0| 6f 76 20 20 20 63 6c 2c | 30 0d 0a 20 20 20 20 61 |ov   cl,|0..    a|
|000003f0| 73 6d 20 20 69 6e 74 20 | 20 20 31 30 68 0d 0a 20 |sm  int |  10h.. |
|00000400| 20 20 20 61 73 6d 20 20 | 78 6f 72 20 20 20 61 68 |   asm  |xor   ah|
|00000410| 2c 61 68 0d 0a 7d 0d 0a | 0d 0a 67 6f 74 6f 78 79 |,ah..}..|..gotoxy|
|00000420| 28 78 2c 20 79 29 0d 0a | 69 6e 74 20 78 2c 20 79 |(x, y)..|int x, y|
|00000430| 3b 0d 0a 7b 0d 0a 0d 0a | 20 20 20 20 61 73 6d 20 |;..{....|    asm |
|00000440| 20 6d 6f 76 20 20 20 61 | 68 2c 30 32 0d 0a 20 20 | mov   a|h,02..  |
|00000450| 20 20 61 73 6d 20 20 6d | 6f 76 20 20 20 62 68 2c |  asm  m|ov   bh,|
|00000460| 30 0d 0a 20 20 20 20 61 | 73 6d 20 20 6d 6f 76 20 |0..    a|sm  mov |
|00000470| 20 20 64 68 2c 78 0d 0a | 20 20 20 20 61 73 6d 20 |  dh,x..|    asm |
|00000480| 20 6d 6f 76 20 20 20 64 | 6c 2c 79 0d 0a 20 20 20 | mov   d|l,y..   |
|00000490| 20 61 73 6d 20 20 69 6e | 74 20 20 20 31 30 68 0d | asm  in|t   10h.|
|000004a0| 0a 7d 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 00 |.}....  |       .|
|000004b0| 4d 69 6b 65 20 4a 6f 68 | 6e 73 6f 6e 00 2e 2e 2e |Mike Joh|nson....|
|000004c0| 2e 2e 2e 2e 2e 2e 2e 2e | 00 31 2d 39 31 38 2d 34 |........|.1-918-4|
|000004d0| 39 33 2d 32 31 33 37 00 | 32 34 30 30 00 20 4e 38 |93-2137.|2400. N8|
|000004e0| 31 4e 20 20 20 20 20 20 | 20 20 20 00 4d 65 74 20 |1N      |   .Met |
|000004f0| 43 68 65 6d 00 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |Chem....|........|
+--------+-------------------------+-------------------------+--------+--------+